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. 
| 
| 

ZTITLE "MOM Network message builder module’ 

MODULE MOMBLDMSG ( 

eer et 9 (BLISS32) 
DRESSING_MODE (NONE XTERNAL =GENERAL) 
ADDR ESSING. MODE (EXTERNAL=GENERAL), 
IDENT *v04-000' 
BEGIN 


ESSE SIEISLISII ITE TTT TE TTT TTT TTT creer rece cc tec ci ici ici iti i ici iit iit i iii iit) 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS FURNISHED usec A_LICENSE AND MAY BE USED AND ag tS 
:# ONLY IN ACCOR y oun'e THE rena OF SUCH LIC ease ow > phe THE 


® 
* 
w 
® 
® 
® 
'® INC Vv C * 
:* COPIES THEREOF MAY NOT BE P OVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
t® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
!t TRANSFERRED. ® 
: ® 
!* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:# AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
't CORPORATION. * 
5 * 
!® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
!t SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

* 

® 

* 


RRR AREER EERE AAR AEE AERA EREA AEE REAR AAAAAAAAAAAAAH ARERR 
' 


++ 
FACILITY: DECnet-VAX Network Management Maintenance Operations Module (MOM) 
ABSTRACT: 
This module contains routines to build NICE response messages 
and miscellaneous routines for debugging. 
ENVIRONMENT: VAX/VMS Operating System 
AUTHOR: Kathy Perko 
CREATION DATE: 99-Jan-1982 
MODIFIED 


vO3~001 MKPO001 Kathy Perko 29-Jan-1984 


' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
zg Fix number of bytes returned to NCP for error messages. 
i 
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; TABLE OF CONTENTS: 


FORWARD ROUTINE 


Smom_externals; 


EXTERNAL 
mom$gq_proprvmsk 


EXTERNAL ahd 
LIBSCVT_HTB 
LIBSPUT~ OUTPUT 


EXTERNAL REFERENCES: 


rk message builder module 


mom$bld_rep 
mom$getmsg NOVALUE, 
mom$error NOVALUE, 
mom$debug_txt NOVALUE, 
mom$debug_msg ah 
mom$debug_gio VALUE, 
mom$dump_qio_bufs NOVALUE. 
mom$trnlognum; 

! 

} INCLUDE FILES: 

LIBRARY *L1B$:MOMLIB.L32'; 

LIBRARY *SHRLIBS:NMALTBRY.L32° 

LIBRARY "SYSSLIGRARY : STARLET. L32" ; 

' 

i 

i 


: BBLOCK (8); 


1$-$00-1964 03:00:34 


! Process privilege mask 


: ADDRESSING_MODE (GENERAL), 
: ADDRESSING-MODE (GENERAL); 


AX-11 BLi 
MOM.SRCJM 


-32 V 
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reply ° Build NICE response message 12286871388 95:00:35 {ROM SRC MOMBLDMSG.B32; 


ZSBTTL snoareld reply Build NICE response message’ 
GLOBAL ROUTINE mom$blid_reply (msgblk, msglen) = 
' 


‘ee 
FUNCTIONAL DESCRIPTION: 


—~ 


This routine builds a NICE response message based on the 
message segment block. 


FORMAL PARAMETERS: 
MSGBLK Address of the ——— segment block (MSB). 


MSGLEN Address of longword to return the total size of 
the message that was built. 


MOMSAB_NICE_XMIT_BUF contains the NICE reply message built as described in 


i 

i 

i 

i 

i 

i 

i 

! 

i 

; IMPLICIT OUTPUTS: 
i 

the message segment block. 

i SIDE EFFECTS: 

| The NICE response message is in MOMS$AB_NICE_XMIT_BUF. 
- 


BEGIN 


MAP 
msgblk : REF BBLOCK; 
LOCAL 
bufcnt : SIGNED, 
en H YTE, 


! Message length counter 
Temporary string length 
i 


in_ptr, Input text pointer 
out _ptr; Output message pointer 
i The MSB longword mask determines the message fields that are 
! described in the following longwords. The status code is always 
: required. 
bufcnt = 0; ! Initialize buffer count 
out = = mom$ab nice xait_but; ! Get output buffer pointer 
CHSOCHAR_A C.msgbtk msb$b_code], out_ptr); ' Add return code 
bufent = .bufcnt + 1; ! Increment message count 


Check for detail field. 
if smsgb tk Cmsb$v_det_fld] THEN 
BE IN 


Move the detail word into the message buffer. 


(,out_ptr)<0,16> = smggbLk Cmsb$w_detail); 
out_ptr = .out_ptr + 2; 


ELSE 


,,,,,,-.-/ssshensnsssnntes 
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Sbid_reply ° Build NICE response message 1 30071382 95:00:36 {ROM SRC MOMBLOMSG_03224 


BEGIN 
No detail field is specified so add a minus one to the message. 


(,out_ptr)<0,16> = <1; 
gut _p r = .out_ptr + 2; 


bufcnt = .bufcnt + 2; : Add detail length to count 
i Check for message field if there is room in the buffer. 


i) 
if .bufcnt LSS mom$k_nice_buf_len THEN 
F .ms blk Cmsb$v_msg_fid] THEN 


BEG] 
mom$getmsg Cmogeth Cmsb$i_text), 


, in_ptr); ! Get system message text 


; If message will not fit in the buffer move the maximum. 
iF (.bufcnt + .len) GTR mom$k_nice_buf_len THEN 


, ben = mom$k_nice_buf_len = -bufcnt™= 1; 
4 
4 
4 
& 
4 
4 
4 
4 
4 
: 


i Move the count and the entire message into the buffer and the 
Length to the total. 


CHSWCHAR_A (.Llen, out_ptr); 

out_ptr = CHSMOVE (.Len, 
-in_ptr, 
-out_ptr); 

bufcnt = .bufcnt + .len + 1; 


i fa secondary status message is requested, then append a CR/LF 
! and the second Line of message text to the ASCIC text string in 
the NICE response. 


if ‘pogelt Cmsb$v_msg2_fild] THEN ! If secondary message supplied, 


local ascic_count; ! Pointer to count byte of string 
ascic_count = -out ptr - .len = 1; 
mom$getmsg(.msgblk Cmsb$l_text2], len, in_ptr); 
out_ptr = CHSCOPY(2, UPLIT BYTE({3, 16), 
len, n-ptr. 

6, mom$k_f ce_buf_len - .bufcnt - 1, .out_ptr); 
ufcnt + .len * 2; ' Increment buffer space used 
SRCHAR(.ascic_count)+.len+2 


bufcnt = 2b 
eascic_count); ' [ncrement ASCIC string length 


CHSWCHAR(C 
END; 
END 
ELSE 
BEGIN 
: No message field is present so insert zero length. 


CHSWCHAR_A (0, out ptr); 
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6 

epa1986 3:44; 
, END; 
If there is room in the buffer check for the data field. 
IF .bufcnt LSS $k_nice 3Puf ai" THEN 


F pt mpbsy data fie 
AND sécih msbSa_ data NEQA 0) THEN 


H 
work message builder module 1¢- 


os a 


Data field is ASCID string. 


IND 
datadsc = msgblk Cmsb$a_data] : REF VECTOR; 


in_ptr = ee (1); Get data pointer 
len = .datadsc (0); ! Get Lengt 


: If message will not fit in the buffer move the maximum. 
if (.bufent + .len) LEQ mom$k_nice_buf_len THEN 
BEGIN 


: cove, We data string into the buffer and add length to 
' total. 


OOCOOCGCOCCOCOCOOCOOOCOOCOSCOOOOCOCOO 


out_ptr = CHSMOVE (.Len, 
vin ptr, 


yey reareuynny ny 
wnr—oo0 VP EUN $C OBNOUNEWN OOO VOUS WIN ODOT 


0 ptr); 

0 bufcnt = .bufcnt + Teal 

0 END; 

8 END; 

3 -msglen = .bufcnt; ! Return total message size 
O5z RETURN success ! Return success 

024 END; ! End of mom$bld_reply 


-TITLE MOMBLDMSG MOM Network message builder module 
-IDENT \Vv04-000\ 


«PSECT SPLITS,NOWRT ,NOEXE ,2 
OA OD 00000 P.AAA: .BYTE 13, 10 


~EXTRN nore, -LOGMASK, ROTEL SVD _INGED 
MOMSAB"SERVICE DATA 


monn 
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MOM. SRC JMOMBLDMSG.B832; 


SCODES,NOWRT,2 
noneeyo REPLY. Save R2,R3,R4,R5,R6,R7,RB,- 
R omg 


Buf CNT 
ROMEAB_MICE_XRIT_BUF OUT_PTR 


#i, (R8), 1% 
(R8), (OuT_PTR) 


Moa 
anc oO 
~~ 


BUFCNT, #196, LEN 
N, R? 

R7, (OUT_PTR)+ 

R7, @IN_PTR, (OUT_PTR) 

R3 UT PT 

1(R7) BOF CNT, BUF CNT 

#3, (RB), 8$ 

R QUT _BIR R3 

shir ), “ASCEC_COUNT 

LEN 

g(RB) 

#3, MOMSGETHSG 


#2,°P. AAA, #0, RO, (R11) 


R9 
@IN_PTR, #0, RO, (R11) 


T PTR 
BOFCNT), BUF CNT 
1), R 


Saas 
om 


0092 


ooo 


a ee a ons 


SeENSRS FEN 


; Routine Size: 284 bytes, Routine Base: SCODES + 0000 


; 264 0242 1 
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vi ta mom$bid_reply ve Build NICE response £78681 382 95:00:35 YROM. SREIMOMBLOMSG. 832: “ (3 vl 
BRB 8$ 3 01 H 
7$: CLRB (OUT_PTR)+ : 03 ; 
000000cS5 = BF 8s CMPL FCNT, #197 + 0209 : 
BGEQ : 3 
34 68 BBC #5, (RB), 9$ + 0210 : 
18 As iste 4iR8) + 0211 : 
50 18 «OA MOVL 4(R8), RO : 0219 : 
6E A MOVL (RO), IN_PTR : 3 
06 A mOVB (RO), LEN : 0 0 ; 
Bo | Roo BoP no Bee Be 
o00000c5 = BF CMPL Rg, § : 3 
BGTR 9s 3 . 
50 046 «OA MOVZBL LEN, RO 3 } ‘ 
62 00 2 MOVCS RO, @IN_PTR, (OUT_PTR) : : 
MOVL 3, OUT-PTR : : 
Ar MOVZBL LEN, : 0233 3 
6 ADDL2 RO, BUFCNT : : 
08 gC 6 9$: MOVL BUF CNT, @MSGLEN : 7 : 
1 move #1, RO ; zy : 
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ZSBTTL ‘mom$getmsg Get message text from message file’ 
GLOBAL ROUTINE mom$getmsg (cod, len, ptr) : NOVALUE = 


'¢ 


o 
: FUNCTIONAL DESCRIPTION: 
i This routine performs a SgE TASS system service to retrieve the 
; message fqrt for the specified status code from either the system 
; message file, or MOM's message file. 
i FORMAL PARAMETERS: 
H COD System error code. 
: LEN Length of standard message text. 
H PTR Address of text. 
i IMPLICIT OUTPUTS: 
i 
t 
! 
' 


The message text is contained in MSGBUF. The information 
in MSGBUF must be copied before a subsequent call to this routine. 


PPPS EE EE 


: BBLOCK (255); ! Buffer for message text 
! (Must be OWN because the text 
} has to stay around after the 


return from this routine.) 
LOCAL 


SANS O 


bufdsc : VECTOR (2), ! Message buffer descriptor 
reslen : WORD; ' Length of text 
A -len = 0; 
80 bufdsc fo} = 255; ! Initialize buffer descriptor 
81 bufdse [1] = msgbuf; 
§ Retrieve the message text for the specified error code. 
P 0285 2 SGETMSG (MSGID = .cod, 
P LEN = reslen 


BUFADR = bufdscS; 
Set up return values. 


slen = -reslen; 
-ptr = msgbuf; 


END; ! End of MOMSGETMSG 
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; Routine Size: 


MOM Network message builder module 


mom$getmsg 


52 bytes, 


Get message text from message f G-sep- 
00000 MSGBUF : 


2¢ 00000000' 
a eo 


oe 


ponseeese 00 
fe 


Routine Base: 


oo 
MMUOMM rome 


Qaaorr> 


at 
ee 


SCODES + O11C 


Wroronrn > 


WD Lf nWDoLrre 


Be 18:22:35 


-BLKB 
~EXTRN 
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Ph oly 


AX-11 Bliss-32 V4.0-74 
MOM. SRC JMOMBLDMSG.832; 


255 

SYSSGETMSG 

SCODES ,NOWRT ,2 
MOMSGETHS , Save R2 
noes sb 


#55, BUF DSC 


hie <purDsces 


psc’ 
RESLEN 


COD 
SYSS$GETMSG 

RESLEN: @LEN 

MSGBUF. aPTR 
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rror Signal an error message with de 14-Sep-1 MOM. SRC JMOMBLDMSG.B32; 


ZSBTTL ‘mom$error Signal an error message with detail field’ 
GLOBAL ROUTINE momSerror (err, det) : NOVALUE = 


14 

' FUNCTIONAL DESCRIPTION: 

! This routine moves an error or status code into the output buffer 
followed by the detail word. 

FORMAL PARAMETERS: 
ERR 
DET 

SIDE EFFECTS: 


An error message is signalled to be sent by the condition handler. 


33 
Sz 


SALES 


POPPIN INI IIR POPONUPOPONOPU RN = 
- mm = 
= 


E status code to be transmitted (NMASC_STS_xxx). 


NIC 
NICE error detail code. 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
— 
BEGIN 
BUILTIN 
AP; 
LOCAL 
count; 


Move the error code and the detail code into the buffer. 


WALA AI POPU ROPINIPINONDD 2 2 OOO 


Be Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Fe Se Se Se Se Ge Se Se Se Se Se oe Se Se Se Ge Ge Oe Se Ss os Oe Se Oe Ss Ss oe 


; 
; (mom$ab_nice_xmit_buf)<0,8> = .err; 
IF ..AP°GTR T THER 
3 BEGIN 
3 (mom$ab_nice_xmit_buf + 1)<0,16> = .det; 
3 count = 3; 
3 
3 
; count = 1; 
3 ; : Signal the message. 
; ; $signal_msg (mom$ab_nice_xmit_buf, .count); 
4 3 END; ! End of mom$error 
0004 00000 -ENTRY MOMSERROR, Save R2 3; 0296 
52 000000006 00 3 900 MOVAB MOMSAB_NICE_XMIT_BUF, R2 ; 
6 04 AC 90 000 MOVB ERR, MOMSAB-NICE~XMIf_BUF F 9328 
01 6C p| 0000 cMPL = CAPS, 1 > 0324 
OA 15 0010 Sica 3 
01 aé 08 iA 8 001 MOVW or. MOMSAB_NICE_XMIT_BUF +1 3 § 
5 DO 00017 MOVL #3, COUNT : 
11 Bate BRB ; Ss 
50 1 pO OOOIC 1$ MOVL #1, COUNT ; Q 
0 DD OOO1F 2$ PUSHL COUNT 3 4 


7 
CBURNS® | EOaeneert emnggg byte petoteoe wien on HEHE=ISE ABQUHS WADDLE DWE SENG Po f 
2 0D PUSHL R ; 
000000006 00 cetleten i PB 8 CALLS SO ae 
04 000 RET 


; Routine Size: 49 bytes, Routine Base: S$CODE$ + 0150 
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ys 
~ 
a 


-PSECT SPLITS,NOWRT,NOEXE ,2 
53 41 21 20 2A 2A 2A 00005 P.AAC: tt on 'AS\ : 


: ¢ 7 1 XSBTTL ‘mom$debug_txt Print text message’ 

3 rb 3 : GLOBAL ROUTINE mom$debug_txt (bitnum, txtdsc) : NOVALUE = 
: 345 40 1 S44 

: rf é3 ! FUNCTIONAL DESCRIPTION: 

: 348 45 1! This routine prints the erect ties message text to SYSSOUTPUT if 
: r4 8 rf} : the appropriate logging flags are set. 

: 2] rf : FORMAL PARAMETERS: 

; 2g 48 1! BITNUM Bit number of the Logging flag. 

3 2¢ 8 4 ! } TXTDSC Descriptor of ASCII text string. 
3 28 8 i : IMPLICIT INPUTS: 

3 28 0358 ! MOMSGL_LOGMASK Values of current logging flags. 
; 360 0355 1 !<- 

; 361 0356 1 

3 o¢ tHe BEGIN 

; 358 

: 364 B36 P 

3 365 0360 txtdsc : REF VECTOR; 

; 366 bee 

3s 367 0 66 LITERAL 

: 368 036 faosize = 132; 

; 9 0364 

: 70 0365 LOCAL 

: 71 9208 faoprm, 

; Has 036 outdsc : VECTOR (2), — 

: 3 0368 faobuf : BBLOCK Cfaosize); 

3; 374 0369 

3 $2 0370 ! > 
; 378 O853 : If the correct logging flag is set then output the text string. 
; 378 0373 IF .mom$gl_logmask C.bitnum) 

: 79 0374 THEN 

; 380 Behe BEGIN 

; 381 3/8 faoprm = .txtdsc 

: 56 B37 outdsc [0] = faosize: 

; 38 0378 outdsc (1) = faobuf; 

; 384 P 0379 SFAOL (CTRSTR = SASCID (‘ee 'AS'), 

3 5 P 9 OUTLEN = outdsc (0], 

: P 1 OUTBUF = outdsc 

; 38 8¢ PRMLST = faoprm); 

; 388 038 LIBSPUT_OUTPUT (outdsc); 

; 4389 384 END; 

; 390 385 

; «391 386 END; ! End of mom$debug_txt 
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~EXTRN 
«PSECT 
0000 000 -ENTRY 
a5 FF70 §=©CE 9E 000 MOVAB 
2D 000000006 8 AC €E1 0000 BBC 
6E 8 ac 00 10 MOVL 
FB AD 4 8F 9A 14 MOVZBL 
FC = AD 4 AE 9E 19 OVAB 
SE DD 0001 PUSHL 
F AD 9F 000 PUSHAB 
F AD 9F 000 PUSHAB 
00000000' a oF 44 6 PUSHAB 
000000006 00 4 FB 000 § CALLS 
F8 AD 9F 000 PUSHAB 
000000006 00 01 FB 00036 CALLS 
04 0003D 1$: ET 


; Routine Size: 62 bytes, Routine Base: $CODE$ + 0181 


oa SG MOM Network message builder module Ibese -1984 02:00:34 AX-11 Bliss-32 V4.0-74 
Vv *b00 mom$debug_txt Print text message 1 =36071 382 95:00:35 EROM.SRE MOMBLDMSG.B32; 


80000000" Go0t6 "** “ADDRESS” p. aac 


SYS$FAOL 

SCODES,NOWRT, 2 
MOMSDEBUG_TXT, Save nothing 
-144(SP), “SP 

BITNUM, MOMSGL_LOGMASK, 1$ 
TxTDSC FAOPRM 

#132, OUTDSC 

EAOBOF OUTDSC+4 


OUTDSC 
OUTDSC 


P.AAB 
#4, SYSS$FAOL 
#1, LIBSPUT_OUTPUT 


0383 
0386 


SS 
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ZSBTTL ‘mom$debug_msg Print binary message’ 
GLOBAL ROUTINE mom$debug_msg (bitnum, buffer_adr, 

buffer_len, Extdsc) : NOVALUE = 
lee 


i FUNCTIONAL DESCRIPTION: 
This routine dumps binary messages to SYSSOUTPUT. 
FORMAL PARAMETERS: 
Number of the logging flag bit. 


Address of the message buffer. 


i 

i 

i 

i 

: BITNUM 

: BUF FER_ADR 
: BUF FER_LEN Length of the message in bytes. 
TXTDSC 

i 

i 

i 

i 

i 


r 
oO 
= 


Descriptor of text string. 


S& 


IMPLICIT INPUTS: 


; 1 

H 1 

; 1 

; 1 

3 1 

; 1 

; 1 

; 1 

; 1 

; 1 

38 | 

; 4 3 

; a 

7 Z 

: 410 0% 1 

i $1) O¢og : MOMSGL_LOGMASK Values of current logging flags. 

; a18 O407 1 in 

3; 4416 38 1 

3 a12 . BEGIN 

; a13 11 

3 ret \¢ txtdsc : REF VECTOR; 

: 420 Q414 ¢ LITERAL 

3: 421 415 faosiz = 256, ! The print buffer. 

3; 4 § bei$ faolst_size = 10, ! Size of FAO parameter vector 
: : be} dump_buffer_size = 2000; 

> 425 19 § Local 

: 426 0 faobuf : VECTOR Cfaosiz, BYTE],! Print buffer 

; 427 421 faolst : VECTOR sgotet size ° ' List of args to SFAOL 

: 428 4 § outdsc : VECTOR (2), ' Descriptor of the output Line 
; 429 oytes. ! Counter for bytes written 

3; 4 4 r: REF BBLOCK, 

; 431 425 ° ' index 

:; 4 § $ buf fer_end, ! Address of end of message buffer. 
3; 4 4 dump _buffer : ! Buffer from which the data is dumped. 
: : ; 3 BBLOCK Cdump_buffer_size); 

; 4 ' 

: 2 ? : If the correct logging flag is not set then just return. 

: 439 if NOT -mom$gl_logmask C.bitnum] THEN 

; rr | : , _ RETURN; 

: 46 i If it's a MOP message, only log it if logging is on for that particular type 
3 re i : of MOP message. 

: 445 9 @ IF .bitnum EQL dbg$c_mopio THEN 

: «44 440 BEGIN 

; ret rt SELECTONEU .(.buffer_adr)<0,8> OF 

: 449 tg mop$_fct_mid): IF NOT .mom$gl_logmask Cdbg$c_mop_mld] THEN RETURN; 


t " message builder module 6-50 1 4 AX-11 Bliss-32 V4.0-74 Page 16 
msg “fh : 3h 93:28 :3 . 


Print see, message 1228682} MOM. SRCJMOMBLDMSG.B32; (7) 


23 
3¢ 
fz 
+ 
Sz 


; 450 4& mops. fet. rahi if NOT .mom$gl_logmask [dbg$c_mop_rml] THEN RETURN; 2 
; 451 45 mope-f¢ F NOT .mom$gl-logmask [dbg$c_mop_rmd] THEN RETURN; : 
3 2 ¢ 6 yee “fete “nadd: IF NOT .mom$gl"Logmask [dbg$c-mop_mddJ THEN RETURN; : 
s bee t8 8 
; 2 $ r 0 If the siete Length is nonzero then print it. : 
: 4 8 if .txtdsc NEQA 0 THEN : 
3 cz Z BEGIN 
; 661 5 outdsc 9 = faosiz; 
3 rh § outdsc = faobuf: 
: 664 8 faolst (0) = .txtdsc (0 : 
; 465 faolst LijJ = .txtdsc 
3 re¢ ree faolst = .buffer_ len: 
: 4668 P 6¢ SFAOL (CTRSTR = SASCID (" !AD_ (Length = !UL bytes)"), 
; 469 P 046 OUTLEN = outdsc [0], ’ 
: 470 P 0464 OUTBUF = outdsc : 
i 47 65 PRMLST = faolst); ; 
: 47 8 LIBSPUT_OUTPUT (outdsc); 3 
: 4746 68 : 
Py of? +4 : END; ° 
3 47 71 i Dumping permanent data base records requires BYPASS privilege because the : 
3 of 8 passwords are displayed. 
ie 74 3 IF (.bitnum EQL dbg$c_fileio) 
: 481 75 AND (NOT .mom$gq_proprvmsk Corv$v_bypass]) THEN 
3; 6 ¢ 47 RETURN; 
if rh 
: 485 7 i Move the data to be dumped into the dump buffer, filling it with zeros. 
; 4 0 ! This ensures that any information past the end of the buffer is printed 
: $ 1 as zeros. 
; rt 34 2 CHSCOPY (.buffer_len, .buffer_adr, 0, dump_buffer_size, dump_buffer); 
; rbd 5 Dump the buffer contents in hex and ASCII. 
: 49 re (1) = faobuf; 
: 694 r = dump_buffer; 
; $95 buts fer. end’ = “d buffer + .buffer_len; 
3 $38 Beate LSS .buffer_end dO 
; 49 91 GIN 
; 498 9 outdsc = faosiz; 
: 499 9 faolst = .ptr (12,0,32,0): 
3 4 9% faolst = .ptr (8,0,32,0); 
: 1 95 faolst § = .ptr (4,0,32.0); 
3 4 38 faolst = ee 0,0,32,0); 
: 50 9 faotst = 16; 
3 38 faolst (5) = .p 
: $Paoe (CTRSTR = Siscip CT OXL IML IML IML !L'AF"), 
. ¥ OUTLEN = outdsc (0), 
| 
| 


" message builder module 
msg Print binary message 


puTeut = qeerets 
LIBSPUT et 


Add a new Line. 
LIBSPUT_OUTPUT (SASCID ('")); 


Oe 


soc (5:08:35 YASSIL Bhs tt- 832 


! End of mom$debug_msg 


20 68 74 4 $f 


om—oom—oom—0o0o—-C0Mm 


FON FON FON PN 


-PSECT SPLITS,NOWRT,NOEXE,2 
ASCII \ IAD (Length = !UL bytes)\ 
-BLKB 

- LONG : 

eADDRESS P.AAE 

ASCII \EXL ‘ML IML IML !L!AFN\ 
-BLKB 

«LONG 1 

eADDRESS P.AAG 

-BLKB 0 

«LONG 0 

«ADDRESS P.AAI 


-PSECT S$CODES,NOWRT,2 


-ENTRY MOMSDEBUG figs. Save R2,R3,R4,R5,R6,R7,RB,RI 
MOVAB RY 


SYSS$F AOL 
MOVAB LIBSPUT OUTPUT, R8 


P.AAD, 
MOVAB MOMSGL Lgenask. R6 
MOVAB sii b 


BBS ITNUM, PROMSGL _LOGMASK, 1$ 
CMPL NUM, #5 

BNEQ 

MOV ZBL Brccr sn. RO 

CMPB CORO, # 

BNEQ 

BBS #1, MOMSGL_LOGMASK+1, 5$ 
CMPBSséRO, «#10 

BNEQ 3 

BBS #2, MOMSGL_LOGMASK+1, 5$ 
CMPB te a 

BNEQ 4 

BBS #3, MOMSGL_LOGMASK+1, 5$ 


? 


Sears Sree ee peter eee STIR GBsRR3S Badawi ae 


; Routine Size: 274 bytes, Routine Base: $CODES + 01BF 


16- 
mom$debug_msg Print t binary message 12: 

OE 09 4 4$: CMPB «RO, #14 ; ; 
6 1 7 BNEQ 3 ; 
01 01 Ab 4 £6 : BBs #4, MOMSGL_LOGMASK+1, 5$ : ; 
50 10 ac 09 58: MOVLTXTDSC, RO ; : 
FEDO § CD 0190 H C MOV IWL #256, OUTDSC ; : 
FEDS = CD FF CB E MOVAB FA BUF OUTDSC+4 ; : 
FEDS CD : MOva FAOLST ; : 
FEEO CD oc AC 7 MOVL our FER _LEN, FAOLST+8 : ; 
FEDS CD 9F 0007 PUSHAB FAOLST~ : : 
FEDO CD OF PUSHAB OUTDSC ; : 
FED gp F HAB OUTDSC ; : 
DD 000 PUSHL R ; : 
69 04 FB C CALLS #4, SYSSFAOL ; ; 
FEDO cD OF F PUSHAB He cles F : 
68 1 Fe 3 CALLS bie BSPUT. OUTPUT : ; 
ot tae : : 
6D 000000006 00 0 fi 009¢ BBC MOM$GQ_PROPRVMSK+3, 10$ : ; 
0700 «BF 00 08 BC 0c aC C OOAs 7$ MOVCS SurFER LEN: @BUFFER_ADR, #0, #2000, - ; : 
FEDS ¢ FFOO CD OF DOAE MOV PROBO » OUTDSC+4 : F 
6E 9E 008 MOVAB DUMP_BUFFER, PTR : : 
5 6E H B38 MOVAB DUMP" BUFFER. RO : : 
53 20 0c AC C1 000 ADDL BUFFER LEN “RO. BUF FER_END : ; 
a 52 01 000CO 8s: CMPL R, BOFFER_E : : 
46 18 000C BGEO $5 ; : 
FEDO CD 0100 8F 3C 000¢ MOVZWL #356 OUTDSC ; F 
FED8 (CD 0C A2 00 000C MOVL 1 (PERI FAOLST : 3 
FEDC CD 08 A2 00 000d MOVL §§ 8(PTR), FAOLST#4 : ; 
FEEO CD 04 A2 00 0000 MOVL 4(PTR). FAOLST+8 : : 
FEE4 CD 62 00 000D MOVL (PTR), FAOLST#12 : : 
FEE8 CD 1 00 OOE MOVL #16, FAOLST+16 ; ; 
FEEC CD 52 p O0E MOVL _— PTR. _FAOLST+#20 : ; 
FED8 CD 9F OOOED PUSHAB FAOLST ; ; 
FEDO CD 9F OOOF1 PUSHAB OUTDSC F ; 
FEDO cD 9F O00FS PUSHAB OUTDSC : : 
20 A? 9F 000F9 SHAB P.AAF : ; 
69 04 FB OOF CALLS #4, SYSSFAOL : : 
FEDO CD 9F OOOFF PUSHAB OUT F 3 
6 01 FB 0103 CALLS #1, LIBS$PUT_OUTPUT : : 
5 10 CO 001 ADDL2 #16, PTR : : 
BS 11 001 BRB : ; 
28 «=A? «OF 0010B 98: PUSHAB P.AAH ; : 
68 01 FB 0108 CALLS #1, LIBSPUT_OUTPUT : ; 
04 00111 10$: — RET : : 


ahah shes Ah Ab Ab db Ab db db db hb hb dh dh dh dh ah hh ah ah al 


SGOOCOOCOOOOCOOOOOOOOO OOOO OOOOOOOOO 


MAMA 


vw 


SOOOCOOOOOSOOOCOOOSOOOOOOOSCSoOo 


PUPA MII BEE EEE EEE 


PP RE A Et DEES 
& DFERISSSVSAFUNAS SSSA SSS 
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work messa ilder_ module 16- ep-1984 02:00:34 AX-11 Bliss-32 V4.0-74 
bug_qio a nt NETACP 10 information 1 ~Sep- 38 93:00:35 {ROM SRC MOMBLDMSG.B32; 
ZSBTTL ‘mom$debug sg» Rage Q10 information’ 


io 
GLOBAL ROUTINE eaktdebug_aio (bitnum, qi josb, pids 


9. s Se 
pédsc, p5adr, p4dsc, txtdsc) : NOVALUE = 
‘ee 


FUNCTIONAL DESCRIPTION: 


This routine dumps NETACP Q10 information to SYSS$OUTPUT. 
FORMAL PARAMETERS: 
i BI TNUM Contains the nunber of the logging flag bit. 
: Q10S Status of Q10 (RO). 
: 10S8 Address of 1/0 status block. 
: PIDSC Address of P1 descriptor. 
‘ P2DSC Address of Ps descriptor. 
; PSADR Address of P5 word. 
; P4DSC Address of P4 descriptor. 
: TXTDSC Descriptor of text string. 
IMPLICIT INPUTS: 
; MOMSGL_LOGMASK Values of current logging flags. 
-= 
BEGIN 
MAP 
jiosb =: REF $10S8, 
pidsc : REF VECTOR 
p2dsc : REF VECTOR, 
p4dsc : REF VECTOR; 
BIND 
faostr = SASCID ("RO=!XL JOSB=!XL/!XL PI=!xXW/!XL!/', 
*"P2=!XW/'XL P3=!XL C!XW) P4=!XW/!XL"); 
LITERAL 
faosiz = 256; ! The print buffer 
LOCAL 


faobuf : VECTOR [Cf gsiz. BYTE), ! Print buffer 
faolst : VECTOR 20 ° ' List 9 args to $FAOL 
; outdsc : VECTOR 5 ! Descript 

If the correct logging flag is not enabled then just return. 
if NOT -mom$gl_logmask [.bitnum) 


RETURN; 


or of the output Line 


J 
Print header message at beginning of Q10 information. 


if .txtdsc NEQ 0 THEN 
mom$debug_txt (.bitnum, .txtdsc); 


sdekun ion Prins METATE B10 inforaetion 1b-se0-1984 95:20:33 EASm' Se dnonee bate 35¢ Page $0 


outdse £1 = feobuf 


Log the — completion status, 10SB, and the values of the Q10 
parameters 

faolst (0) = .qios; 
IF .tosb NEQ 0 THEN 


Z 3 5 lah £2:8:38:83 


: 


SESELEAEERES SaNo 


oo 
wr 


IF .pidsc NEQA 0 THEN 
EGIN 
faolst ie -pidsc 0: 
faolst = .pidsc ; 
END 
ELSE 
BEGIN 


faatst £4] = 0: 


IF — NEQA 0 
THEN 


SELSSLES SESSLER RA SSO ON ISS 
mm 
aed 
nw 
wm 
S88a 55 
"Seon 
4 “vz 
aed 
or 
Ld 
a) 
co 


SSSSSSSSSSSSS SSS 


RE té} = :pSdse £13: 


ELSE 
fet Ea} = 8 


faolst (7) = .p3adr; 
IF. pSadr ia > 


Be Se Ge Se Ge Ge Ge Ge Ge 
PAEAAAAAAOS 
—o 8 4 tb st tt 


faolst (8) = .(.p3adr)<0,16> 
faolst (8) = 0; 

IF .p4dsc NEQA 0 

Heir 


Faolst [9].= .p4dse (03; 
faolst Rees age 


BEGIN 


ELSE 


NOV E WN “OOOO UE w Oo 


ELSE 


7 
ep 1986 13:40:29 EROM.SRCIMORBLOMSG-832: eel 


: 


7 
MOM Network mess ilder module 16-$ 
mom$debug_qio ead nt NETACP Q10 information 1228 


: faolst = 0; 
‘ § faolst 335 = 6; 
. END; 
SFAOL (CTRSTR = faostr, 
OUTLEN = outdsc [0], 
OUTBUF = outdsc 
PRMLST = faolst); 
635 LIBSPUT_OUTPUT (outdsc); ! Write to SYSSOUTPUT 


if NOT .qios 
HEN 


vvv 


SESS L ENOL OS ae a eb PD OSES 


ese mom$getmsg (.qios, outdsc [0], outdse [1]) 

IF .iosb NEQ 0 

§ THEN 

6 mom$getmsg (.iosb Cios$w status], 
6 4 outdsc (0 
2 5 outdse (135; 
? : LIBSPUT_OUTPUT (outdsc); ! Write to SYSSOUTPUT 
6 
: ? Dump the contents of the NFB, the P2 (Key) buffer, and the P4 (Value) buffer. 
658 ; mom$dump_qio_bufs (.bitnum, .pldsc, .p2dsc, .p4dsc, .p3adr); 
661 4 END; ! End of mom$debug_qio 


-PSECT SPLITS,NOWRT,NOEXE ,2 


4C 1 3D 4 4F 49 20 4C 58 21 3D 30 52 60 P.AAK: ASCII \RO=!XL JOSB=!XL/!XL PI=!XW/!XLI/P2=!KW/IN\ ; 
te 38 3) BP 88 33 21 i 1 $6 i A F ~ : 7 
29 57 58 21 28 20 4c 58 21 $ : 4c : as eASCIT \KL P3=!ML C!XW) PG=!XW/!XL\ : 
4C 21 2F 57 58 21 3D 34 5 097 <a : 
9000042 OAS P.AAJ: .LONG 66 : 
000 * QOOA8 -ADDRESS P.AAK : 

FAOSTR= P.AAJ 


-PSECT SCODES,NOWRT,2 


OFC ENTRY MOMSDEBUG O10, Saye R2,R3.R4,R5,RO,R7 : 0513 
Hr 0000p oP Sas rt a a : 
01 000000006 0 04 AC £6 BBS BITNUM, MOMSGL_LOGMASK, 1$ ; 0560 
20 ac 03 18 18: TSTL  TXTDSC > 0567 
08 1B BEQL «= 2S ; 
20 AC DD O10 PUSHL  TXTDSC : 0568 
4 AC dD 0002 PUSHL BI TNUM ; 


7 
SG MOM Network messa ilder module 1b-se 1984 00:34 AX-11 Bliss-32 V4.0-74 Pa 
vi mom$debug_qio at nt NETACP G10 information 1 7350-1382 93:00:35 YROM. SRC MOMBLDMSG.B32; ¥ BS 
FE8B CF 2 CALLS #2, MOMSDEBUG_TXT ; : 
gE 01 ge ae H 28: MOVZWL a5b 6" OUTDSC ~ : 0570 F 
04 AE AE MOVAB FAOBUF, OUTDSC+4 + 0571 : 
8 AF AC D MOVL 10S, FAOLST : 376 ; 
5 C aC OOD MOVL 1088, R5 : 057 ; 
04 CLRL Rg : 3 
D TSTL) oR : : 
3 F BEQL «6s 3$ : : 
6 INCL 6 : ; 
OC AE 6 D 0004 MOVG (RS), FAOLST+4 : 0579 ; 
yi 4 BRB 4$ : 0577 ; 
of AE 49 3: CLRQ  FAOLST+4 : 05 : 
54 aC D 4C 4$: ROVE pipsc. R4 ; 05 ; 
16 AE et ts 03 MOVG  (R4), FAOLST+12 + 0590 ; 
3 11 BRB 6$ : 0588 : 
14 AE 7C 00058 5$ CLRQ  FAOLST+1 + 0595 : 
53 14 AC p 0098 rs} HOVL eps . : 0599 ; 
1c AE es 7D 0081 MOVO (R3), FAOLST+20 : 960 : 
11 00065 BRB 8$ : F 
1¢ AE 7C 00067 7$: CLRQ  FAOLST+20 : 0607 : 
24 «AE 1 A 06 006A 8$: HOVL P3ADR. FAOLST+28 3 061) : 
28 AE 18 B¢ 3C 8071 MOVZWL @P3ADR, FAOLST+32 + 0614 3 
11 0076 BRB 10$ : ; 
8 AE D4 07 CLRL = FAOLST+#3 + 0616 ; 
52 C AC 09 0078 10$ MOVL  P4DSC, : 0618 3 
06 13 0007F BEQL ‘i118 ; : 
2c AE 6 7D 00081 MOva (Re), FAOLST+36 + 0621 ; 
11 00085 BRB 12 : 0618 : 
3¢ AE 7C 00087 11$ CLRQ  —«~ FAOLST+36 : 0626 : 
8 AE 9F OO08A 12$ PUSHAB FAOLST : 0633 : 
4 AE 9F 0008D PUSHAB OUTDSC ; F 
: AE 9F 9990 PUSHAB OUTDSC ; ; 
00000000" 00 9F 0009 PUSHAB FAOSTR : : 
000000006 00 04 FB 00099 CALLS #4, SYSSFAOL ; : 
‘ DD 00 PUSHL SP + 0635 ; 
67 0 FB OA CALLS #1, LIB$PUT_OUTPUT : 3 
0B 8 Ac OA BLBS aids, 13$ + 0637 ; 
4 AE SF OO00A9 PUSHAB OUTDSC+4 + 0639 ; 
4 AE 9F OOOAC 5 OUTDS ; 
8 AC DD OOOAF PUSHL  QI10S ; 
o¢ 11 “ BRB 14$ : 
OE 4 138: BLBC  R6, 15$ + 0641 
04 AE 9F 00087 PUSHAB OUTDSC+4 > 0645 
oo 3 OBA SHAB OUTDSC > 0644 
7E 65 3C 0008 MOVZWL (RS), -(SP) > 0643 
FD86 CF 3 FB O00CO 14$: CALLS #3, MOMSGETMSG ; 
; DD 000C5 15$:  PUSHL SP > 0647 
67 FB O00C CALLS #1, LIBSPUT_OUTPUT ; 
18 AC DD OOOCA PUSHL  P3ADR + 0652 
¢ DD 000CD PUSHL Re F 
DD OOOCF PUSHL R ; 
4 DD 00001 PUSHL R& : 
04 AC DD 95 PUSHL B] TNUM : 
00000000v 00 05 FB 00006 CALLS #5, MOMSDUMP_QIO_BUFS ; 


“7 
VourOBD” = ss momBebug. gio’ Print NETACE O10 information 12-Sep-1986 43:20:36  Eadm SRedABRarbmLe:S3509 Page 3 
04 00000 RET : 0654 
; Routine Size: 222 bytes, Routine Base: SCODE$ + 0201 


32 
53 


S 


SESSESE. 


SN NN SSO 
Sano 
o 


AP Awe S Swe 


FAAPAAAAAASO 
VMEWN—O 


QS. 


FESSSRS 
WN OVDONOUS WN —O0O@ 


SNS 


ssseeses 
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wm 
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work message builder module 16-Sep-1 


“11 Bliss-32 V4.0-74 


-aio_bufs Dump O10 buffers 12-868" 382 95:00:35 YROM.SRe MCMBLDMSG.832; 


ZSBTTL ‘mom$dump_qio_bufs Dune Q10 buffers’ 
GLOBAL ROUTINE mom$dump_qio_bufs (bitnum, pldrc, pedsc, p4dsc, p3adr) : 
= 


'o4¢ 


FUNCTIONAL DESCRIPTION: 


i This routine dumps the contents of tie buffers after a Q10 to NETACP. 
: The buffers dumped are the NFB, the 2 (Key) buffer, and the 
} P4 (Value) buffer. 
i 
FORMAL PARAMETERS: 
i BI TNUM Contains the number wf the logging flag bit. 
! P1DSC Address of P1 descrijtor. 
! P2DSC Address of P2 descriptor. 
: P4DSC Address of P4 descriptor. 
} P3ADR Address of P3 word. 
i ee 
3EGIN 
LOCAL 
4len; ! Length of P4 buffer 
MAP 


IF .pidsc NEQ 0 THEN 
mom$debug_msg ( “bi tnun 


° sc L1), 

bid fa. 
‘Pl buffer contents')); 

IF .p2dsc NEQ 0 

THEN 


mom$debug_msg ( .bitn 
“Pp 


2 buffer contents')); 

IF .p4dsc NEQ 0 

THEN 
BEGIN 
i Figure out how much of the P4 buffer tg dump. If it's a 
! show, the byte count was returned in P35. If it’s a set, 
the byte count is in the P4 buffer descriptor. 
if -p3adr NEQ 0 THEN 

F of, odr)<0. 16> GTR mom$k_qio_buf_len THEN 
en = 


MO! 
v0 


8 
va DMSG MOM Network message builder module 16-5 -1984 02:00:34 AX-11 iss- 4.0-% 
Vv momSdump.qio buts” Dump Q10 buffers 1 * 5 98 :35 EMOM.SRe manee oMsG.632; a (33 


; 720 71 4len = .(.p3adr)<0,16> 

i 75 ig ese ° . 

aa § 714 p4len = .p4dsc (0); 

2 715 mom$debug_msg ( .bitnum 

$726 16 -p4dsc (1), 

; 725 71 -pSlen, 

s 12 718 SASCID ('P4 buffer contents')); 
: 7?e7 14 END; 

; 728 720 END; ! of mom$dump_qio_bufs 


«PSECT SPLITS,NOWRT,NOEXE,2 


65 74 6E€ 6F 63 20 72 65 66 66 75 62 $9 3} 2 pp oac P.AAM: .ASCII \P1 buffer contents\ . ; ; 
, O00BE .BLKB , : 

SSRRGEE. HBR Potts Ese a , : 

65 74 6E 6F 63 20 72 65 66 66 75 62 20 32 30 ages P.AAO: :ASCII \P2 buffer contents\ 3 3 
QOODA -BLKB , : 

90000012 OODC P.AAN: .LONG 18 P ; 

00000000" 000E0 “ADDRESS P.AAO : ; 

65 74 6& 6F 63 20 72 65 66 66 75 62 39 ? ze Bobes P.AAQ: .ASCII \P4 buffer contents\ : ; 
000F6 .BLKB 2 : : 

00000012 00078 P.AAP: ‘LONG 18 ; ; 

00000000" O00FC “ADDRESS P.AAQ : : 

-PSECT $CODES,NOWRT,2 ; 

000c 00000 .ENTRY MOMSDUMP_QIO_BUFS, Save R2,R3 > 0656 : 

53 00000000' 00 9€ 00002 MOVAB P.AAL, R3. ri : ; 

52 FEO3 CF 9E 00009 MOVAB MOMSDEBUG_MSG, R2 ; ; 

50 AC D 00g MOV. PIDSC, RO + 0687 : 

op 13 0001 BEQL 1$ : : 

DD 00014 PUSHL R3 3; 0691 3 

60 oD 0016 PUSHL (RO) > 0690 ; 

04 AO DD 0001 PUSHL  4(RO) > 0689 : 

04 AC DD 0001B PUSHL BITNUM + 0688 : 

62 04 F O1F CALLS #4, MOMSDEBUG_MSG : ; 

Oc AC D 1 1$: MOVL P2bSC, RO > 0693 : 

OE 1 00 3 BEQL 2$ : ; 

1c =A3 9F 000 PUSHAB P.AAN > 0698 : 

60 DD O002A PUSHL (RO) > 0697 ; 

4 AO DD 0002¢ PUSHL  4(RO) : 06 : 

4 AC DD 90 F PUSHL BITNUM : 0695 : 

62 04 F é CALLS #4, MOMSDEBUG_MSG : : 

51 10 AC BO 90085 28: MOVL P4OSC, RI ; 0700 : 

14 AC D3 00038 TSTL SADR ; 0708 : 

0200 &F 14 BC 8 a9¢6 CMP @P SADR, #512 : 0709 : 
6 1B 00046 BLEQU 3$ : : 


& 
— DMSG MOM Network message builder module these -1984 00:34 Ax-11 iss- 4.0-74 
Vv mom$dump_qio_bu = Dump Q10 buffers 12280871382 95:00:36 MOM. SRE maneeOMSG. 032, ages 5 v0 
50 40 af A 48 MOV ZBL #64, P4LEN : 0710 
50 14 6 ¢ 3$: MOV ZL P3ADR, P4LEN : 712 
50 0 $$: MOVL (R1), P4LEN + 0714 
38 ASO $: PUSHAB P.AAP : 718 
50 DD A PUSHL P4LEN : 071 
04 Al DD C PUSHL 4(R1) : 0716 
4 AC DD F PUSHL BITNUM : 0715 
62 04 FB 9062 CALLS #4, MOMSDEBUG_MSG : 
04 00065 6$ RET : 0720 


| 
; Routine Size: 102 bytes, Routine Base: S$CODE$S + O3AF 
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ZSBTTL ‘mom$trnlognum Translate numeric logical name‘ 
GLOBAL ROUTINE mom$trnlognum (lnmdsc, resadr) = 


144 
FUNCTIONAL DESCRIPTION: 


This routine translates a poptcat name and returns the numeric 
representation of the ASCII hexadecimal number that results. 


FORMAL PARAMETERS: 


LNMDSC Descriptor of the logical name to be translated. 
RESADR Address of longword to contain the numeric value. 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


Returns error code if the logical name has no translation or the 
translation is invalid. The result longword will be set to zero. 


SIDE EFFECTS: 
NONE 


lnmdsc : vector; 


ascnum : VECTOR (8, BYTE]; 


LOCAL 
asclen : WORD, 
status; 
status = STRNLOG (LOGNAM = .lnmdsc, 
RSLLEN = ascle 


n 
RSLBUF = UPLIT (8, ascnum)); 


IF .status EQL ss$_ normal THEN 
status = LIBSCVT_HTB (.asclen, ascnum, .resadr); 


RETURN .status 
END; ! End of mom$trnlognum 
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OM. SRC JMOMBLOMSG.B32; 
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SHE. Slag nt 


a 
0100 ASCNUM: 


0000 000 
SE 4 ¢ 000 
E 7C 0000 
3 Be 0007 
0" Oo f 94 
AE OF OOF 
06 ac OD Batg 
ae a of aap 
14 12 OOO1F 
8 Ae DD 38 1 
5 0000088" BPE BRRe 
000000006 00 0 fe B28 3 18: 
; Routine Size: 54 bytes, Routine Base: S$CODE$S + 0415 
; 786 rrr 64 
: 787 778 «#1 
; 788 0779 #1 
; 789 3780 1 END ! 
; 790 7 1 
3; 791 0782 0 ELUDOM 
3 PSECT SUMMARY 
; Name Bytes Attributes 
: SPLITS 64 NOVEC,NOWRT, RD ,NOEXE,NOSHR, 
3 scoues 1099 NOVEC,NOWRT, RD, EXE,NOSHR, 
3; ©SOWN 64 NOVEC, WRT, RD ,NOEXE,NOSHR, 


ote Bliss-32 V4.0-74 
MOM. SRC JMOMBLDMSG.832; 


«PSECT SPLITS,NOWRT,NOEXE,2 
-LONG $8 

«ADDRESS ASCNUM 

-PSECT SOWNS,NOEXE,2 


-BLKB 1 
-BLKB 8 


-EXTRN SYSSTRNLOG 

-PSECT S$CODES,NOWRT,2 

ENTRY MOMSTRNLOGNUM, Save nothing 
UB SP 


L2 #4 
CLRO. 2 = ( §P) 
CLRL = = (SP) 
PUSHAB P.AAR 
PUSHAB ASCLEN 
PUSHL LNMDSC 
CALLS #6, SYSSTRNLOG 
CMPL STATUS, #1 
BNEG 1$ 
PUSHL RESADR 
PUSHAB A 


SCNUM 
MOVZWL ASCLEN. |= (SP) 
#3, LIBSCVT_HTB 


End of module 


-EXTRN LIBSSIGNAL 


LCL, REL, CON,NOPIC,ALIGN(2) 
LCL, REL, CON,NOPIC,ALIGN(2) 
LCL, REL, CON,NOPIC,ALIGN(2) 


LE eee Sa 
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Library Statistics 


: eoccceeon Symbo lg ooeeeeee Pages Processing 
: File Total Loaded Percent Mapped Time 

: 8 S5SDUA :(MOM.OBJ JMOMLIB.L3 194 3 18 21 0:00.1 

: 7$255S0UA28:(SHRLIBJNMALIBRY. i “4 887 0 47 0:00. ; 
; ~$255SDUA28:CSYSLIBISTARLET.L32; 1 9776 581 0:02.1 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=L1S$:MOMBLOMSG/0BJ=0BJ$:MOMBLDMSG MSRC$:MOMBLDMSG/UPDATE=(ENHS:MOMBLDMSG) 


; 792 0783 

3; Size: 1099 ie + 528 data bytes 
; Run bey 

; Elapsed 

3 tee Min: 

3 Newey ok ia 182 H 

3 cenery oe 149 pages 

3; Compi A.» Complete 


ee eee: nL eee OC ee 7 ——— fr 
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